home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1996 August
/
Software of the Month Club 1996 August.iso
/
pc
/
os2
/
famtree
/
birthday.ftx
< prev
next >
Wrap
Text File
|
1996-05-20
|
2KB
|
79 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier>
Please send comments to / Kommentar bitte an
meier2@athene.informatik.uni-bonn.de
<This script shows all birthdays of every person in the tree
/ Dieses Skript zeigt alle Geburtstage der Menschen im Stammbaum>
*/
/* ----------------------- Params / Parameter ------------------- */
namewidth=32
datewidth=14
namewidth=datewidth+30
IF getLanguage()='Deutsch' THEN DO
header = 'Geburtstagsliste (Alter am nächsten Geburtstag) '
END
ELSE DO
header = 'Birthday List (age at next birthday) '
END
/* ----------------- Display Header / Kopf der Ausgabe ------------- */
SAY(header||DATE())
SAY(................................................)
/* ------------------------------ Output / Ausgabe ----------------- */
/* Sort Perons by Birth Month,Day / Menschen sortieren nach Geburtsmonat,Tag */
rc=sortPersons('BM,BD')
/* Calculate actual year / Berechne aktuelles Jahr */
thisyear=WORD(DATE(),3)
/* Display persons in tree / Anzeigen der Menschen im Baum*/
rc=selectPerson('F')
DO UNTIL rc=0
/* Get month of Birth / Geburtstagmonat */
result=getBirthDate('m')
/* Only if month is given / Nur wenn Monat bekannt */
IF result<>'?' THEN DO
/* Get Day of Birth / Geburtstag */
day=getBirthDate('D')
IF day<>0 THEN
result=result||' '||day
result=LEFT(result,datewidth)
/* Add Name,First name / plus Name,Vorname */
result=result||getName()||','||getFirstName()
result=LEFT(result,namewidth)
/* Age this year / Alter in diesem Jahr */
year=getBirthDate('Y')
IF year<>0 THEN
result=result||' ('||thisyear-year||')'
/* Output / Ausgabe */
SAY(result)
END
/* Next one / Naechster */
rc=selectPerson('N')
END
/* Done / Fertig */
RETURN